home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / scheme / pcscheme / geneva / sources.exe / SOURCES / EDWIN / COMMAC.S < prev    next >
Encoding:
Text File  |  1993-06-15  |  2.7 KB  |  96 lines
  1. ;;;
  2. ;;;    Copyright (c) 1985 Massachusetts Institute of Technology
  3. ;;;
  4. ;;;    This material was developed by the Scheme project at the
  5. ;;;    Massachusetts Institute of Technology, Department of
  6. ;;;    Electrical Engineering and Computer Science.  Permission to
  7. ;;;    copy this software, to redistribute it, and to use it for any
  8. ;;;    purpose is granted, subject to the following restrictions and
  9. ;;;    understandings.
  10. ;;;
  11. ;;;    1. Any copy made of this software must include this copyright
  12. ;;;    notice in full.
  13. ;;;
  14. ;;;    2. Users of this software agree to make their best efforts (a)
  15. ;;;    to return to the MIT Scheme project any improvements or
  16. ;;;    extensions that they make, so that these may be included in
  17. ;;;    future releases; and (b) to inform MIT of noteworthy uses of
  18. ;;;    this software.
  19. ;;;
  20. ;;;    3.  All materials developed as a consequence of the use of
  21. ;;;    this software shall duly acknowledge such use, in accordance
  22. ;;;    with the usual standards of acknowledging credit in academic
  23. ;;;    research.
  24. ;;;
  25. ;;;    4. MIT has made no warrantee or representation that the
  26. ;;;    operation of this software will be error-free, and MIT is
  27. ;;;    under no obligation to provide any services, by way of
  28. ;;;    maintenance, update, or otherwise.
  29. ;;;
  30. ;;;    5.  In conjunction with products arising from the use of this
  31. ;;;    material, there shall be no use of the name of the
  32. ;;;    Massachusetts Institute of Technology nor of any adaptation
  33. ;;;    thereof in any advertising, promotional, or sales literature
  34. ;;;    without prior written consent from MIT in each case.
  35. ;;;
  36. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  37. ;;;
  38. ;;;     Modified by Texas Instruments Inc 8/15/85
  39. ;;;
  40. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  41.  
  42. ;;;  equating language feature
  43.  
  44. (alias vector-cons make-vector)
  45.  
  46. (alias vector-size vector-length)
  47.  
  48. (alias conjunction and)
  49.  
  50. (alias disjunction or)
  51.  
  52. (macro string-allocate
  53.    (lambda (e)
  54.      (list 'make-string (cadr e) " ")))
  55.  
  56.  
  57. ;;; Following equations are temporary till I understand them better
  58.  
  59. (macro without-interrupts
  60.   (lambda (e)
  61.     (cdr e)))
  62.  
  63.  
  64. (macro define-unparser
  65.   (lambda (e)
  66.     '()))
  67.  
  68. (macro declare (lambda (e) '()))
  69.  
  70. (macro integrate (lambda (e) '()))
  71.  
  72. (macro primitive-datum
  73.    (lambda (e) (cadr e)))
  74.  
  75. (macro set!
  76.   (lambda (e)
  77.     (if (= 2 (length e))
  78.         (list (car e) (cadr e) '#!unassigned)
  79.         e)))
  80.  
  81. ;;; some to remove name clashes
  82.  
  83. ;;; line-length is a pcs primitive. we are changing it to line-string-length
  84. ;;; by defining a macro.
  85.  
  86. (define-integrable line-string-length
  87.   (lambda (line)
  88.      (string-length (line-string line))))
  89.  
  90. (macro line-length
  91.    (lambda (e)
  92.       (cons 'line-string-length (cdr e))))
  93.  
  94.  
  95.  
  96.